10 REM  VIRUS SIMULATOR
20 REM  BY S.BALA GANGADHER RAO
30 Y=PEEK(646)
40 B=1024+RND(1)*999:C=B+54272
50 X=PEEK(B):IFX=32THEN40
60 POKEB,32:B=B+40:C=C+40
70 IFB<2024THENPOKEB,X:POKEC,Y:GOTO60
80 GOTO40